home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / JORF21-2.ZIP;1 / JORFFILS.ZIP / ASCII.J next >
Encoding:
Text File  |  1993-07-05  |  882 b   |  36 lines
  1. Ascii:Start
  2.   Win:Add("ASCII TABLE", 4, 4, 19, 62, Here)
  3.     Display:"Ascii:Show(0)"
  4.     Marker:"Button"
  5.     Button:"&Upper ASCII", Row:17 Col:1  Wid:30 Action:"Ascii:Show(128)"
  6.     Marker:"Exit"
  7.     Button:"E&xit ", Row:17 Col:33 Wid:30 Action:"Null"
  8.   Return (Ok)
  9.  
  10. Ascii:Show(Base)
  11.   New (Char)
  12.  
  13.   Win:Attr("Lo")
  14.   Move:To(1,1)
  15.  
  16.   | Display 128 Ascii characters
  17.   For (Char = Base Thru 127+Base)
  18.     Str:Put(To:Str(Char,"000 "))
  19.     Char:Put(Char)
  20.     If ((Char %8)==7)
  21.       Str:PutLine()
  22.     Else
  23.       Str:Put("   ")
  24.   Win:Attr("No")
  25.  
  26.   | Change button to be the opposite of what is showing
  27.   If (Base==0)
  28.     Win:Chg("Button",17,1,19,33)
  29.       Button:"&Upper ASCII", Row:17 Col:1 Wid:30 Action:"Ascii:Show(128)"
  30.   Else
  31.     Win:Chg("Button",17,1,19,33)
  32.       Button:"&Lower ASCII", Row:17 Col:1 Wid:30 Action:"Ascii:Show(0)"
  33.  
  34.   Return (Ok)
  35.  
  36.